home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
utility2
/
wine02bx.zip
/
LISP
/
MODES
/
C-FILL.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
3KB
|
39 lines
;;; compiled by @win386 on Sat Mar 13 14:30:19 1993
;;; from file c:/src/lucid-19.4/lisp/modes/c-fill.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(defvar c-comment-starting-blank t "\
*Controls whether global comments have an initial blank line.")
(defvar c-comment-indenting t "\
*If set global comments are indented to the level of the previous line.")
(defvar c-comment-hanging-indent t "\
*If true, comments will be automatically indented to the dash.")
(defvar c-hang-already-done t "\
If true we have performed the haning indent already for this comment.")
(defvar c-comment-mode-map nil "\
Keymap used in C comment mode.")
(byte-code "¼û┴\n!├─┼#ê├╞╟#ê├╚╔#ê┴ç" [c-comment-mode-map copy-keymap c-mode-map define-key "" newline "q" set-fill-and-fill "" set-fill-and-return] 4)
(fset 'c-comment #[nil "½â┴¬ü┬├─╞ëëë \nè╬╧╨├#¡ç``╤\\{╥ÿ)╞╒!ê¼▓╫ ê╪cê┘`! ┌ ê`è╨yê█╥├#)½îi▄\\▌X½à▐cê¬â▀cê╫ ê¬Æ┘`! ┌ ê█αß ├#êΓyê#½┤è`Σyê█╥├#½ê█α├#¼£σ╥!êµ├#ê┘`! τΦ!¼åΘ ▒ê)╫ ê╒*!.ç" [c-comment-indenting do-indented-auto-fill do-auto-fill t "/*\\*+[ ]*" paragraph-start nil opoint paragraph-separate fill-prefix paragraph-start-ref comment-start-skip comment-multi-line auto-fill-function re-search-backward "/\\*\\|\\*/" 0 2 "/*" in-comment c-hang-already-done use-local-map c-comment-mode-map c-indent-line "/* " get-current-fill recursive-edit search-forward 3 79 " */" "\n*/" "*/" buffer-size 1 c-comment-starting-blank -1 search-backward re-search-forward looking-at "\n" 10 c-mode-map] 8 "\
Edit a C comment with filling and indentation.
This performs hanging indentation, symmetric placement of delimiters,
and Indented-Text mode style indentation. Type 'M-x apropos
c-comment' for information on options." nil])
(fset 'set-fill-and-fill #[(arg) "└`!┬!ç" [get-current-fill fill-prefix fill-paragraph arg] 2 "\
Get the fill-prefix and fill the current paragraph." "P"])
(fset 'set-fill-and-return #[nil "½ä┴`!├\n▒ç" [c-comment-indenting get-current-fill fill-prefix 10] 2 "\
Set the current fill prefix and move to the next line." nil])
(fset 'do-indented-auto-fill #[nil "`è┴\nT!ê├─xên½å┼╞╟#êè╚─xên)?¡è╔!\n╦\n▒*ç" [opoint move-to-column fill-column "^ \n" nil re-search-forward "[ ]" t " " get-current-fill fill-prefix 10] 4 "\
Perform auto-fill, but get fill-prefix first."])
(fset 'get-current-fill #[(pnt) "┴ëè┼yê`╞╚#ê`{ëëGSGOë╔ÿ¼ë\n╩ÿ¼ä╔P╦╠╔#½ª¼ó`┴ê`┼yê╤╥╚#½ì╙`Z╘\"P╚*╓╫┼GSO!╪Rë)+ç" [pnt nil last-char fill opoint 0 re-search-forward comment-start-skip t " " " " replace-letter "/" c-comment-hanging-indent c-hang-already-done opnt curr search-forward " - " make-string 32 paragraph-start-ref "\\|^" regexp-quote "$" paragraph-start paragraph-separate] 7 "\
Get the current fill prefix.
A valid fill prefix must be between the beginning of the line and point."])
(fset 'replace-letter #[(str old-letter new-letter) "└ë┴\nGW½£\nëTOÿ½ä¬üPTë¬`,ç" [nil 0 str size sp c new-str old-letter new-letter] 5])